home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / Asymptote Demo / Examples / Demos / 12) GSC star chart / setmaglimits < prev    next >
Encoding:
Text File  |  1994-05-07  |  413 b   |  17 lines  |  [TEXT/DWat]
  1. % Useage: setmaglimits lowermaglimit uppermaglimit
  2. %
  3. % Sets the point style based on the
  4. % magnitude limits passed as arguements
  5. %
  6. % This script assumes that the magnitudes of the stars are
  7. % stored in r0.
  8.  
  9. set lowermaglimit &1
  10. set uppermaglimit &2
  11. rpn <r0 lowermaglimit ?>=
  12. rpn <r0 uppermaglimit ?<=
  13. rpn * <r0 >p
  14. % size of the crosses goes as the 1.5 power of the mag
  15. rpn 18 <p - 18 / 1.1 y^x 41 + -1 * >p
  16.  
  17. close